home *** CD-ROM | disk | FTP | other *** search
/ An Invitation to the Roland World of Music / Roland - An Invitation To The Roland World Of Music.bin / vb / vb30 / disk1 / main1.fr_ / main1.bin
Text File  |  1993-04-27  |  2KB  |  75 lines
  1. VERSION 2.00
  2. Begin MDIForm frmMain 
  3.    Caption         =   "Mouse Examples"
  4.    Height          =   5130
  5.    Left            =   195
  6.    LinkTopic       =   "MDIForm1"
  7.    Top             =   1095
  8.    Width           =   7365
  9.    Begin Menu mnuOptions 
  10.       Caption         =   "&Options"
  11.       Begin Menu mnuClickLine 
  12.          Caption         =   "&Click-A-Line"
  13.       End
  14.       Begin Menu mnuScribble 
  15.          Caption         =   "&Scribble"
  16.       End
  17.       Begin Menu mnuDragDrop 
  18.          Caption         =   "&Drag Drop"
  19.       End
  20.       Begin Menu sep1 
  21.          Caption         =   "-"
  22.       End
  23.       Begin Menu mnuInstructions 
  24.          Caption         =   "&Instructions"
  25.       End
  26.       Begin Menu sep2 
  27.          Caption         =   "-"
  28.       End
  29.       Begin Menu mnuExit 
  30.          Caption         =   "E&xit"
  31.       End
  32.    End
  33. End
  34.  
  35. Sub MDIForm_Unload (Cancel As Integer)
  36.     End
  37. End Sub
  38.  
  39. Sub mnuClickLine_Click ()
  40.     frmClickLine.Cls
  41.  
  42. End Sub
  43.  
  44. Sub mnuDragDrop_Click ()
  45.     frmDrag.Show
  46. End Sub
  47.  
  48. Sub mnuExit_Click ()
  49.     End
  50. End Sub
  51.  
  52. Sub mnuInstructions_Click ()
  53.     ' Declare local variables
  54.     Dim MsgText
  55.     Dim CR
  56.     Dim PB
  57.     ' Initialize paragraph break local variable
  58.     CR = Chr$(10) & Chr$(13)
  59.     PB = Chr$(10) & Chr$(13) & Chr$(10) & Chr$(13)
  60.     ' Define message text
  61.     MsgText = "Click-A-Line"
  62.     MsgText = MsgText & CR & "Click on the form to draw connecting lines."
  63.     MsgText = MsgText & PB & "Scribble"
  64.     MsgText = MsgText & CR & "Drag the mouse across the from to draw a line."
  65.     MsgText = MsgText & PB & "Drag Drop"
  66.     MsgText = MsgText & CR & "Select a valid text (.txt), bitmap (.bmp), Windows executable (.exe), or Help (.hlp) file in the files list box. Drag the file and drop it in the picture box to display or execute the file."
  67.     ' Display message
  68.     MsgBox MsgText, 64, "Mouse Demo Instructions"
  69. End Sub
  70.  
  71. Sub mnuScribble_Click ()
  72.     frmScribble.Cls
  73. End Sub
  74.  
  75.